﻿Public Class MainForm

    Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click
        Application.Exit()
    End Sub

    Private Sub SetSerialNumberToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SetSerialNumberToolStripMenuItem.Click
        My.Settings.DefaultSerialNumber = InputBox("Plese enter a new Serial Number", "Serial Number", My.Settings.DefaultSerialNumber)
    End Sub

    Private Sub SetTokenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SetTokenToolStripMenuItem.Click
        My.Settings.DefaultToken = UInt32.Parse(InputBox("Plese enter a new Token", "Token", My.Settings.DefaultToken))
    End Sub
End Class